0 PRINT"[147]"+CHR$(14)+CHR$(158):POKE53280,6:POKE53281,11:TI$="000000"
1 PRINT"[212]HE [197]NTERTAINER"
2 PRINT"BY"
3 PRINT"[211]COTT [202]OPLIN"
4 PRINT"ARRANGEMENT":PRINT"BY":PRINT"[210]ICK [211]TERLING"
8 PRINT"PLEASE WAIT 3 MIN 25 SEC."
9 PRINT"COFFEE BREAK! SETTING UP 20K BYTE ARRAY"
10 S=54272:FORL=STOS+24:POKEL,0:NEXT
20 DIMH%(2,1200),L%(2,1200),C%(2,1200)
30 DIMFQ(11)
40 V(0)=17:V(1)=65:V(2)=33
45 POKES+3,8
50 POKES+9,140:POKES+22,240:POKES+23,244
60 FORI=0TO11:READFQ(I):NEXT
100 FORK=0TO2
110 I=0
120 READNM
121 PRINTTI$:PRINT"[145]";
130 IFNM=0THEN250
140 WA=V(K):IFNM<0THENNM=-NM:WA=1
150 DR%=NM/128:OC%=(NM-128*DR%)/16
160 NT=NM-128*DR%-16*OC%
170 FR=FQ(NT)
180 IFOC%=7THEN200
190 FORJ=6TOOC%STEP-1:FR=FR/2:NEXT
200 HF%=FR/256:LF%=FR-HF%*256
210 IFDR%=1THENH%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:GOTO120
220 FORJ=1TODR%-1:H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA:I=I+1:NEXT
230 H%(K,I)=HF%:L%(K,I)=LF%:C%(K,I)=WA-1
240 I=I+1:GOTO120
250 IFI>IMTHENIM=I
260 NEXT
300 PRINT"[145][145][145][145]";
302 PRINT"                                        "
303 PRINT"                                        "
304 PRINT"                                        "
500 POKES+5,63:POKES+6,240
505 POKES+10,8
510 POKES+12,8:POKES+13,9
520 POKES+19,119:POKES+20,7
530 POKES+24,31
540 FORI=0TOIM
550 POKES,L%(0,I):POKES+7,L%(1,I):POKES+14,L%(2,I)
560 POKES+1,H%(0,I):POKES+8,H%(1,I):POKES+15,H%(2,I)
570 POKES+4,C%(0,I):POKES+11,C%(1,I):POKES+18,C%(2,I)
571 IFI=313THENPOKES+12,119:POKES+13,53
572 IFI=571THENPOKES+12,53:POKES+13,53:POKES+10,6
573 IFI=823THENPOKES+12,10:POKES+13,167:POKES+10,0:POKES+20,240:POKES+5,15
580 NEXTI
582 PRINT"HIT ANY KEY TO REPEAT"
590 GETA$:IFA$=""THEN590
591 IFA$=""THENEND
598 PRINT"[145]                     [145]"
599 GOTO500
600 DATA35115,37203,39415,41759
610 DATA44242,46873,49660,52613
620 DATA55741,59056,62567,66288
1000 DATA 338,340,336,585,331,583,322,324,320,569
1010 DATA 315,567,306,308,304,553,299,297,296,551,-496,599
1020 DATA 322,323,324,592,324,592,324,1616
1030 DATA 352,354,355,356,352,354,612,347,610,1632
1040 DATA 322,323,324,592,324,592,324,1872
1050 DATA345,343,342,345,352,612,354,352,345,1634
1070 DATA 322,323,324,592,324,592,324,1616
1080 DATA 352,354,355,356,352,354,612,347,610,1632
1090 DATA352,354,356,352,354,612,352,354,352,356,352,354,612,352,354,352
1100 DATA356,352,354,612,347,354,1760
1110 DATA340,341,342,599,345,599,340,341,342,599,345,599
1120 DATA340,336,327,329,331,336,338,340,338,336,338
1130 DATA327,340,341,343,345,343,340,341,599,345,599,340,341,342,599,345,599
1140 DATA343,345,346,347,603,603,345,342,338,1367
1150 DATA340,341,342,599,345,599,340,341,342,599,345,599
1160 DATA340,336,327,329,331,336,338,340,338,336,338
1170 DATA 1360 , 327 , 326 , 327 , 592 , 329 , 592 , 329 , 336 , 329
1180 DATA 327,336,340,599,340,336,327,585,592,340,594,1616,-448
1190 DATA345,344,1113,608,2146
1200 DATA 341,340,1109,601,1882,343,594,343,594,343,594,1104,1109
1210 DATA340,344,347,612,354,347,352,1113,1114,345,344,1113,608,2146
1220 DATA341,340,1109,601,1882,343,594,343,594,343,594,1104,853,341
1225 DATA 345,608,599,336,338,340,597,-480,613,-480
1230 DATA592,329,592,329,336,329,327,336,340,599,340,336,327
1240 DATA585,592,340,594,1360,608,-416
1250 DATA581,324,581,324,581,-256,329,338,329,336,338,336,324
1260 DATA583,326,583,326,583,-256,336,340,336,338,340,338,336
1270 DATA594,337,594,337,594,-256,341,345,341,343,345,343,341
1280 DATA352,352,1120,601,599,327,327,583,583
1290 DATA581,324,581,324,581,-256,329,338,329,336,338,336,324
1300 DATA583,326,583,326,583,-256,336,340,336,338,340,338,336
1310 DATA329,328,329,599,597,336,340,339,340,601,352,343,340
1320 DATA592,592,340,594,1360,608,-416
1999 DATA 0
2000 DATA 338,340,336,585,331,583,322,324,320,569
2010 DATA 315,567,306,308,304,553,299,297,296,551,-496,599,571
2020 DATA 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
2030 DATA 571,560,567,567,567,565,576,564
2040 DATA563,562,566,562,569,571,567,569,571
2050 DATA 560,567,567,567,565,576,564,576,564,576,551,567,551,576,567
2060 DATA-496,576,580,570,580,569,581,568,581
2070 DATA567,580,567,571,576,567,560
2110 DATA 336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
2115 DATA 1093,1096,1092,1095
2120 DATA 596,340,596,336,338,339,596,340,596
2130 DATA343,345,346,343,599,598,345,336,338
2140 DATA 1355,336,338,339,596,340,596,336,338,339,596,340,596,340,336,327
2150 DATA 1093,1096,1092,1098
2160 DATA 581,581,579,579,576,576,576,576
2170 DATA 582,582,325,581,1604,-448
2180 DATA341,342,1109,601,2138
2190 DATA338,340,1106,594,1879,343,570,578,567,568,569,581,562,581
2200 DATA564,578,568,578,1092,580,580,341,344,1109,597,2138,338,340,1106,594
2210 DATA1879,343,570,578,567,568,313,309,308,306,840,331
2220 DATA336,592,842,586,585,-480,597,-480
2230 DATA569,569,579,579,580,576,580,576,582,582,325,581,324,1092,592,-432
2240 DATA578,321,578,321,578,-256,329,325,329,336,338,336,329
2250 DATA580,323,580,323,580,-256,336,343,336,338,340,338,336
2260 DATA587,330,587,330,587,-256,341,345,341,343,345,343,341
2270 DATA336,336,1104,592,592,324,324,580,580
2280 DATA578,321,578,321,578,-256,329,325,329,336,338,336,329
2290 DATA580,323,580,323,580,-256,336,343,336,338,340,338,336
2300 DATA329,328,329,585,585,329,576,580,579,580
2310 DATA582,582,325,581,324,576,567,560,-464
2999 DATA 0
3000 DATA 338,340,336,585,331,583,322,324,320,569
3010 DATA 315,567,306,308,304,553,299,297,296,551,-496,567,583
3020 DATA560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
3030 DATA 583,560,564,551,570,549,569,548
3040 DATA547,546,562,562,566,567,551,553,555
3050 DATA560,564,551,570,549,569,548,567,551,564,551,565,544,564,564
3060 DATA-496,560,567,554,567,553,569,552,568,551
3070 DATA567,551,567,560,551,544
3110 DATA340,341,342
3120 DATA560,567,551,567,560,567,551,567,549,569,581,568,564,567,551,567,560
3130 DATA567,551,567
3140 DATA 560,567,564,563,562,567,562,569
3150 DATA 567,565,564,562,560,567,551,567
3160 DATA 560,567,551,567,549,569,565,568
3170 DATA 564,567,560,570
3180 DATA 565,565,566,566,567,567,567,567
3190 DATA 562,562,567,567,560,551,544,-192
3200 DATA549,569,560,569,554,330,329,330,336,594
3210 DATA546,569,553,569,551,570,562,570,554,570,551,552,553,569,562,569
3220 DATA564,571,568,571,1081,567,560,549,569,560,569,554,570,565,570
3230 DATA546,569,553,569,551,570,562,570,554,570,551,552,297,293,292,290,1057
3240 DATA560,569,560,560,565,-480,549,-480
3250 DATA565,565,566,566,567,567,576,576,562,562,567,567,1072,544,-480
3260 DATA549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
3270 DATA551,565,555,565,551,565,555,565,563,1075,563,564,-1536
3280 DATA549,565,553,565,549,565,553,565,560,564,551,564,560,564,551,564
3290 DATA549,546,548,549,551,567,566,567,553,546,551,555,560,551,544,-480
3999 DATA 0
4999 DIM NV(32)
5000 INPUT"NOTE DPO";ND,NP,NO
5005 IFND=0THEN5070
5030 NV=128*ND+16*NO+NP
5040 NV(I)=NV
5050 I=I+1
5060 GOTO5000
5070 FORJ=0TOI-1
5075 A$=STR$(NV(J)):IFSGN(NV(J))=-1THEN5080
5076 A$=RIGHT$(A$,LEN(A$)-1)
5080 PRINTA$+",";
5090 NEXT